<!--#include file="../../Connect/Connection.asp"--> 
<%
if  Request.QueryString("action")="delete" then
Dim cnn, cmd, strSQL
Set cnn=Server.CreateObject("adoDB.connection")
cnn.open connstr&";Initial catalog=meps"
set cmd=server.CreateObject("adodb.command")
strSQL="DELETE FROM Firms WHERE ID="&request.QueryString("id_Firms")

	cmd.activeconnection=cnn
	cmd.commandtext=strSQL
	cmd.execute

cnn.close
set cnn=nothing	
response.redirect session("sesUrlFirmsSpisok")
end if%>